home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / fido / qsilver137.lha / ConvertAcct.rexx next >
OS/2 REXX Batch file  |  1994-06-19  |  2KB  |  78 lines
  1. /* */
  2. Options Results
  3.  
  4. if ~show(Libraries,'rexxsupport.library') then do
  5.   if ~addlib("rexxsupport.library",0,-30,0) then do
  6.     say "Error loading rexxsupport.library!"
  7.     exit
  8.   end
  9. end
  10.  
  11. Parse Arg Dir
  12. If Right(Dir,1) ~= ":" & Right(Dir,1) ~= "/" Then Dir = Dir||"/"
  13. Say
  14. Files = ShowDir(Dir,'File')
  15. Do Loop = 1 to Words(Files)
  16.   Say "AReading "Dir||Word(Files,Loop)
  17.   Call Open(In,Dir||Word(Files,Loop),"R")
  18.   Do Line = 1 to 5
  19.     Data.Line = ReadLn(In)
  20.   End
  21.   Call Close(In)
  22.   Call Open(Out,Dir||Word(Files,Loop),"W")
  23.   Data.1 = Right(Data.1,4)||MonthTranslate(Word(Data.1,2))||Left(Data.1,2)
  24.   Data.2 = Right(Data.2,4)||MonthTranslate(Word(Data.2,2))||Left(Data.2,2)
  25.   Do Line = 1 to 5
  26.     Call Writeln(Out,Data.Line)
  27.   End
  28.   Call Close(Out)
  29. End
  30. Exit
  31.  
  32. MonthTranslate: Procedure
  33. Arg FMon
  34. FMon = Upper(FMon)
  35. Select
  36.   When FMon = "JAN"  then FMon = "01"
  37.   When FMon = "ENE"  then FMon = "01"
  38.   When FMon = "GEN"  then FMon = "01"
  39.   When FMon = "FEB"  then FMon = "02"
  40.   When FMon = "FEV"  then FMon = "02"
  41.   When FMon = "FÉV"  then FMon = "02"
  42.   When FMon = "MAR"  then FMon = "03"
  43.   When FMon = "MARS" then FMon = "03"
  44.   When FMon = "MAG"  then FMon = "03"
  45.   When FMon = "MAA"  then FMon = "03"
  46.   When FMon = "MÄR"  then FMon = "03"
  47.   When FMon = "APR"  then FMon = "04"
  48.   When FMon = "ABR"  then FMon = "04"
  49.   When FMon = "AVR"  then FMon = "04"
  50.   When FMon = "MAY"  then FMon = "05"
  51.   When FMon = "MAI"  then FMon = "05"
  52.   When FMon = "MAJ"  then FMon = "05"
  53.   When FMon = "MEI"  then FMon = "05"
  54.   When FMon = "JUN"  then FMon = "06"
  55.   When FMon = "GIU"  then FMon = "06"
  56.   When FMon = "JUIN" then FMon = "06"
  57.   When FMon = "JUL"  then FMon = "07"
  58.   When FMon = "LUG"  then FMon = "07"
  59.   When FMon = "JUIL" then FMon = "07"
  60.   When FMon = "AUG"  then FMon = "08"
  61.   When FMon = "AGO"  then FMon = "08"
  62.   When FMon = "AOÛT" then FMon = "08"
  63.   When FMon = "SEP"  then FMon = "09"
  64.   When FMon = "SET"  then FMon = "09"
  65.   When FMon = "OCT"  then FMon = "10"
  66.   When FMon = "OKT"  then FMon = "10"
  67.   When FMon = "OTT"  then FMon = "10"
  68.   When FMon = "OUT"  then FMon = "10"
  69.   When FMon = "NOV"  then FMon = "11"
  70.   When FMon = "DEC"  then FMon = "12"
  71.   When FMon = "DEZ"  then FMon = "12"
  72.   When FMon = "DIC"  then FMon = "12"
  73.   When FMon = "DES"  then FMon = "12"
  74.   When FMon = "DÉC"  then FMon = "12"
  75.   Otherwise NOP
  76. End
  77. Return FMon
  78.